﻿Partial Public Class admin_projekte

    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim db As New hc_databaseDataContext
        Dim rep1 As New Report
        rep1.PhasenID = DropDownList2.SelectedValue
        rep1.Mitgliede_AnwaerterID = DropDownList3.SelectedValue
        rep1.Dauer = TextBox1.Text * 8
        rep1.Angenommen_pl = True
        rep1.Angenommen_pm = True
        rep1.projektid = Integer.Parse(DropDownList1.SelectedValue)
        rep1.Datum = Date.Parse(TextBox2.Text)
        db.Reports.InsertOnSubmit(rep1)
        db.SubmitChanges()
    End Sub
End Class